#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my $url = "http://www.gene.ucl.ac.uk/cgi-bin/nomenclature/gdlw.pl?".
"title=Genew%20output%20data&hgnc_dbtag=on&col=gd_hgnc_id&col=gd_app_sym&col=gd_app_name&".
"col=gd_status&col=gd_locus_type&col=gd_prev_sym&col=gd_prev_name&col=gd_aliases&".
"col=gd_pub_chrom_map&col=gd_date2app_or_res&col=gd_date_mod&col=gd_date_name_change&col=gd_pub_acc_ids&".
"col=gd_enz_ids&col=gd_pub_eg_id&col=gd_mgd_id&col=gd_other_ids&col=gd_pubmed_ids&".
"col=gd_pub_refseq_ids&col=gd_gene_fam_name&col=md_gdb_id&col=md_eg_id&col=md_mim_id&".
"col=md_refseq_id&col=md_prot_id&status=Approved&status=Approved%20Non-Human&status=Entry%20Withdrawn&".
"status_opt=3&where=&order_by=gd_app_sym_sort&limit=&format=text&".
"submit=submit&.cgifields=status&.cgifields=&.cgifields=chr&.cgifields=hgnc_dbtag";
my $page = get($url);
print $page;

